home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Modes / latex Mode / latexComm.tcl < prev    next >
Encoding:
Text File  |  1997-12-17  |  15.4 KB  |  547 lines  |  [TEXT/ALFA]
  1. #############################################################################
  2. #############################################################################
  3. #
  4. # latexComm.tcl (called from latex.tcl)
  5. #
  6. #############################################################################
  7. #
  8. # Old Author:  Tom Scavo <trscavo@syr.edu>
  9. # New Author:  Vince Darley <darley@fas.harvard.edu>
  10. #############################################################################
  11. #############################################################################
  12.  
  13. proc latexComm.tcl {} {}
  14. #--------------------------------------------------------------------------
  15. # TeX applications
  16. #--------------------------------------------------------------------------
  17.  
  18. # In the following scripts, $quotedSig and $filename are the application 
  19. # signature and the name of the file to be typeset, respectively.  (See
  20. # proc 'evalTeXScript' below.)
  21. array set bibtexAppScripts {
  22.   DirectTeXPro {
  23.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 5"}
  24. } CMacTeX {
  25.     {sendOpenEvent noReply $quotedSig $filename}
  26. } BibTeX {
  27.     {sendOpenEvent noReply $quotedSig $filename}
  28. }
  29. }
  30. array set bibtexAppSign {
  31.   CMacTeX CMTu BibTeX Vbib
  32. }
  33. array set dvipsAppScripts {
  34.   DirectTeXPro {
  35.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\";  directory \$dt_TeXProjectDir > CurrDirectory; dvips \$dt_TeXProjectName"}
  36. } CMacTeX {
  37.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -t 600 -f $filename}
  38. } OzTeX {
  39.     {sendOpenEvent noReply $quotedSig $filename}
  40. }
  41. }
  42. array set dvipsAppSign {
  43.   DirectTeXPro TeX+ CMacTeX CMT1 OzTeX OzDP
  44. }
  45. array set makeindexAppScripts {
  46.   DirectTeXPro {
  47.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 6"}
  48. } CMacTeX {
  49.     {sendOpenEvent noReply $quotedSig $filename}
  50. } MakeIndex {{sendOpenEvent noReply $quotedSig $filename}}
  51. }
  52. array set makeindexAppSign {
  53.   DirectTeXPro TeX+ CMacTeX CMTt MakeIndex RZMI
  54. }
  55. array set printDVIAppScripts {
  56.   Textures {
  57.     {AEBuild $quotedSig aevt pdoc "----" [makeAlis $filename]}
  58. } DirectTeXPro {
  59.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 9"}
  60. } CMacTeX {
  61.     {dosc -c $quotedSig -k 'aevt' -e 'pdoc' -r -f $filename}
  62. } OzTeX {
  63.     {dosc -c $quotedSig -k 'aevt' -e 'pdoc' -r -f $filename}
  64. }
  65. }
  66. array set printDVIAppSign {
  67.   Textures *TEX DirectTeXPro TeX+ CMacTeX CMT8 OzTeX OTEX
  68. }
  69. array set printPSAppScripts {
  70.   DropPS {
  71.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  72. } DirectTeXPro {
  73.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\";  directory \$dt_TeXProjectDir > CurrDirectory; download \$dt_TeXProjectName.ps"}
  74. } CMacTeX {
  75.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  76. }
  77. }
  78. array set printPSAppSign {
  79.   DropPS D•PS DirectTeXPro TeX+ CMacTeX PSP*
  80. }
  81. array set texAppScripts {
  82.   DirectTeX {
  83.     {set script "Begin; ChangeTeXProject '$filename' -check -confirm || Exit 0;  Execute \"{dt_TeXProject}\"; TeXMenu -tex -formats;  End ∑ Dev:Null; RunSession 1 ∑ Dev:Null"} 
  84.     {dosc -r -c $quotedSig -s $script} 
  85. } Textures {
  86.     {global Texturesconnections} 
  87.     {set TeXjob ""} 
  88.     {
  89.         if {[info exists Texturesconnections]} {
  90.             foreach entry $Texturesconnections {
  91.                 if {[car $entry] == $filename} {
  92.                     set TeXjob [cadr $entry]
  93.                     break
  94.                 }
  95.             }
  96.         }
  97.     }   
  98.     {
  99.         if { $TeXjob == "" } {
  100.             set TeXjob [AEBuild -r $quotedSig BSRs Begi]
  101.             set TeXjob [string trim [string range $TeXjob 15 end] {\{\}\"}]
  102.             lappend Texturesconnections [list $filename $TeXjob]
  103.         }
  104.     }   
  105.     {AEBuild -t 1200 $quotedSig BSRs Typs "----" [makeAlis $filename] fmat {"LaTeX"} Jobi $TeXjob} 
  106. } DirectTeXPro {
  107.     {dosc -c $quotedSig -s  "if \$dt_TeXFormat = \'\' \"set dt_TeXFormat -x \$dt_DefaultFormat\""} 
  108.     {dosc -c $quotedSig -s  "ProjectMgr -t \$dt_TeXFormat \"$filename\"; MenuCommand 1 4"} 
  109. } CMacTeX {
  110.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  111. } OzTeX {
  112.     {sendOpenEvent noReply $quotedSig $filename}
  113. }
  114. }
  115. array set texAppSign {
  116.   DirectTeX MPS* Textures *TEX DirectTeXPro TeX+ CMacTeX *XeT OzTeX OTEX
  117. }
  118. array set viewDVIAppScripts {
  119.   Textures {
  120.     {AEBuild $quotedSig aevt odoc "----" [makeAlis $filename]}
  121. } DirectTeXPro {
  122.     {dosc -c $quotedSig -s "ProjectMgr -t \$dt_TeXFormat    \"[win::Current]\"; MenuCommand 1 8"}
  123. } CMacTeX {
  124.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  125. } OzTeX {
  126.     {sendOpenEvent noReply $quotedSig $filename}
  127. }
  128. }
  129. array set viewDVIAppSign {
  130.   Textures *TEX DirectTeXPro TeX+ CMacTeX PIVD OzTeX OTEX
  131. }
  132. array set viewPSAppScripts {
  133.   CMacTeX {
  134.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  135. } MacGS {
  136.     {dosc -c $quotedSig -k 'aevt' -e 'odoc' -r -f $filename}
  137. }
  138. }
  139. array set viewPSAppSign {
  140.   CMacTeX CMT5 MacGS gsVR
  141. }
  142.  
  143. #--------------------------------------------------------------------------
  144. # Typeset submenu commands
  145. #--------------------------------------------------------------------------
  146.  
  147. proc typeset {{bg 0}} {
  148.     # Is there a window open?
  149.     set currentWin [win::Current]
  150.     if { $currentWin == "" } {
  151.         typesetFile "" $bg
  152.         return
  153.     }
  154.     # Strip off trailing garbage (if any):
  155.     regexp {(.*) <[0-9]+>} $currentWin dummy currentWin
  156.     # Is the current window part of TeX fileset?
  157.     set fset [isWindowInFileset $currentWin "tex"]
  158.     if { $fset != "" } {
  159.         if [dirtyFileset $fset] {
  160.             switch [askyesno -c "Save current TeX fileset?"] {
  161.                 "yes" {saveEntireFileset $fset}
  162.                 "no" {
  163.                      # do nothing
  164.                 }
  165.                 "cancel" {return}
  166.             }
  167.         }
  168.         typesetFile [texFilesetBaseName $fset] $bg
  169.         return
  170.     }
  171.     # Is the window untitled or dirty?
  172.     global PREFS
  173.     set currentDoc [file tail $currentWin]
  174.     if { [set num [winUntitled]] } {
  175.         switch [askyesno -c "Save \"$currentDoc\"?"] {
  176.             "yes" {
  177.                 if {[catch {set currentWin [saveAs "Untitled$num\.tex"]}]} {return}
  178.             }
  179.             "no" {
  180.                 set tmpFilename "Untitled$num\.tex"
  181.                 set text [getText 0 [maxPos]]
  182.                 if { [file exists "$PREFS:tmp"] == 0 } { mkdir "$PREFS:tmp" }
  183.                 set newDoc "$PREFS:tmp:$tmpFilename"
  184.                 writeFile $newDoc $text 1
  185.                 set currentWin $newDoc
  186.             }
  187.             "cancel" {return}
  188.         }
  189.     } elseif { [winDirty] } {
  190.         switch [askyesno -c "Save \"$currentDoc\"?"] {
  191.             "yes" {save}
  192.             "no" {
  193.                 set text [getText 0 [maxPos]]
  194.                 if { [file exists "$PREFS:tmp"] == 0 } { mkdir "$PREFS:tmp" }
  195.                 set newDoc "$PREFS:tmp:temp-$currentDoc"
  196.                 writeFile $newDoc $text 1
  197.                 set currentWin $newDoc
  198.             }
  199.             "cancel" {return}
  200.         }
  201.     }
  202.     # Is the current window TeX-able?
  203.     set ext [file extension $currentWin]
  204.     if { [lsearch -exact {.tex .ltx .dtx .ins} $ext] < 0 } {
  205.         typesetFile "" $bg
  206.         return
  207.     }
  208.     typesetFile $currentWin $bg
  209. }
  210.  
  211. proc typesetSelection {} {
  212.     global PREFS
  213.     if { [isSelection] } { 
  214.         watchCursor
  215.         message "processing selection…"
  216.         set currentWin [win::Current]
  217.         # Is the current window part of TeX fileset?
  218.         set fset [isWindowInFileset $currentWin "tex"]
  219.         if { $fset == "" } {
  220.             set pos1 [getPos]
  221.             if { [isInDocument] } {
  222.                 set pos2 [selEnd]
  223.                 if { [isInDocument] } {
  224.                     # fall through
  225.                 } else {
  226.                     beep
  227.                     set msg "Selection not in document environment.  Continue?"
  228.                     if { [askyesno $msg] == "no" } { return }
  229.                 }
  230.             } else {
  231.                 beep
  232.                 set msg "Selection not in document environment.  Continue?"
  233.                 if { [askyesno $msg] == "no" } { return }
  234.                 set pos2 [selEnd]
  235.             }
  236.             set body "\r[getText $pos1 $pos2]\r"
  237.             set searchText [getText 0 [maxPos]]
  238.         } else {
  239.             set body "\r[getSelect]\r"
  240.             # Will not handle a base file that is open and dirty:
  241.             set searchText [buildFilecontents [texFilesetBaseName $fset]]
  242.         }
  243.         message "building temporary document…"
  244.         set pattern {(\\documentclass.*)\\begin\{document\}}
  245.         if { ![regexp $pattern $searchText dummy preamble] } {
  246.             set preamble "\\documentclass\{article\}\r"
  247.         }
  248.         set rootFile [file rootname $currentWin]
  249.         set tempFile "temp-[file tail $rootFile]"
  250.         set auxFile $rootFile.aux
  251.         if { [file exists $auxFile] } {
  252.             set latexDoc [buildFilecontents $auxFile $tempFile.aux]
  253.         } else {
  254.             set latexDoc {}
  255.         }
  256.         append latexDoc $preamble [buildEnvironment "document" "" $body "\r"]
  257.         set currentDir [file dirname $currentWin]
  258.         set latexDoc [texResolveAll $latexDoc $currentDir]
  259.         if { [file exists "$PREFS:tmp"] == 0 } { mkdir "$PREFS:tmp" }
  260.         set newFile "$PREFS:tmp:$tempFile.tex"
  261.         writeFile $newFile $latexDoc 1
  262.         typesetFile $newFile
  263.     } else {
  264.         beep
  265.         message "no selection"
  266.     }
  267. }
  268.  
  269. proc typesetClipboard {} {
  270.     global PREFS
  271.     set body "\r[getScrap]\r"
  272.     set pat1 {\\begin\{document\}.*\\end\{document\}}
  273.     set pat2 {\\documentclass}
  274.     set preamble "\\documentclass\{article\}\r"
  275.     # Check to see if there's a document environment:
  276.     if {![regexp $pat1 $body]} {
  277.         append text $preamble [buildEnvironment "document" "" $body "\r"]
  278.     } else {
  279.         # Check to see if there's a \documentclass command:
  280.         if {![regexp $pat2 $body]} {
  281.             append text $preamble $body
  282.         } else {
  283.             set text $body
  284.         }
  285.     }
  286.     if { [file exists "$PREFS:tmp"] == 0 } { mkdir "$PREFS:tmp" }
  287.     set newFile "$PREFS:tmp:temp-noname\.tex"
  288.     writeFile $newFile $text 1
  289.     set currentWin $newFile
  290.     typesetFile $currentWin
  291. }
  292.  
  293. # Typeset $filename, but perform no error-checking
  294. #
  295. proc typesetFile {filename {bg 0}} {
  296.     if { $filename == "" } {
  297.         set filename [getfile "Choose a file to typeset:"]
  298.     }
  299.     global TeXmodeVars
  300.     set prompt {TeX app}
  301.     evalTeXScript tex $prompt $filename $bg
  302. }
  303.  
  304. # Apply $op to a file with extension $ext.  (See latexMenu.tcl for
  305. # many examples.)  If 'forcecurrent == 1', use the current window 
  306. # even if it belongs to a TeX fileset.
  307. #
  308. proc doTypesetCommand {op ext {forcecurrent 0}} {
  309.     if { [set filename [findAuxiliaryFile $ext $forcecurrent]] != "" } {
  310.         if { $op == "open" } { 
  311.             edit -r -m -w $filename 
  312.         } else {
  313.             $op${ext}File $filename
  314.         }
  315.     } else {
  316.         beep
  317.         alertnote "No $ext file found!"
  318.     }
  319. }
  320.  
  321. proc viewDVIFile {filename} {
  322.     set prompt {DVI viewer}
  323.     evalTeXScript viewDVI $prompt $filename
  324. }
  325.  
  326. proc printDVIFile {filename} {
  327.     set prompt {DVI print driver}
  328.     evalTeXScript printDVI $prompt $filename
  329. }
  330.  
  331. proc dvipsDVIFile {filename} {
  332.     set prompt {DVI-to-PS filter}
  333.     evalTeXScript dvips $prompt $filename
  334. }
  335.  
  336. proc viewPSFile {filename} {
  337.     set prompt {PS viewer}
  338.     evalTeXScript viewPS $prompt $filename
  339. }
  340.  
  341. proc printPSFile {filename} {
  342.     set prompt {PS print driver}
  343.     evalTeXScript printPS $prompt $filename
  344. }
  345.  
  346. proc bibtexAUXFile {filename} {
  347.     set prompt {BibTeX app}
  348.     evalTeXScript bibtex $prompt $filename
  349. }
  350.  
  351. proc makeindexIDXFile {filename} {
  352.     set prompt {MakeIndex app}
  353.     evalTeXScript makeindex $prompt $filename
  354. }
  355.  
  356. proc evalTeXScript {op prompt filename {runAppInBackground 0}} {
  357.     global ${op}Sig ${op}AppSign ${op}AppScripts
  358.     
  359.     set supportedApps [array names ${op}AppSign]
  360.     foreach app $supportedApps { lappend sigs [set ${op}AppSign($app)] }
  361.     set longPrompt "Please locate a $prompt."
  362.     if { [catch {app::launchAnyOfThese $sigs ${op}Sig $longPrompt} appname] } {
  363.         error "bug in 'app::launchAnyOfThese'"
  364.     }
  365.     set sig [set ${op}Sig]
  366.     set quotedSig "'[string trim $sig {'}]'"
  367.     if { $runAppInBackground == 0 } { switchTo $quotedSig }
  368.     foreach app $supportedApps { 
  369.         if { [set ${op}AppSign($app)] == $sig } {
  370.             foreach script [set ${op}AppScripts($app)] {
  371.                 eval $script
  372.             }
  373.             return
  374.         }
  375.     }
  376.     beep
  377.     alertnote "Sorry, no support for your $prompt."
  378.     return
  379. }
  380.  
  381. # Two bugs in 'getfile' (see "alpha.bugs58"):
  382. proc openAnyTeXFile {} {
  383.     set currentWin [win::Current]
  384.     cd [file dirname $currentWin]
  385.     set    filename [getfile ""]
  386.     if { ![string length $filename] } return
  387.     edit -r -m -w $filename
  388. }
  389.  
  390. proc removeAuxiliaryFiles {} {
  391.     set word ""
  392.     set removeSilently 0
  393.     set currentWin [win::Current]
  394.     if { $currentWin == "" } { return }
  395.     set currentDir [file dirname $currentWin]
  396.     set extensions {.ps .dvi .log .aux .bbl .idx .ind .glo .gls \
  397.                     .toc .lof .lot .blg .ilg}
  398.     foreach ext $extensions {
  399.         message "Checking for *$ext files…"
  400.         set files [glob -nocomplain "$currentDir:*$ext"]
  401.         foreach file $files {
  402.             set word " more"
  403.             if {$removeSilently} {
  404.                 if {[catch {rm "$currentDir:*$ext"}]} {
  405.                     alertnote "not all \"*$ext\" files deleted"
  406.                 }
  407.                 break
  408.             } else {
  409.                 message ""
  410.                 set filename [file tail $file]
  411.                 switch [buttonAlert "Remove \"$filename\"?" "yes" "no" {rm ext} {rm all} "cancel"] {
  412.                     "yes" {
  413.                         message "Removing $filename…"
  414.                         if {[catch {removeFile "$currentDir:$filename"}]} {
  415.                             alertnote "\"$filename\" not deleted"
  416.                         } else {
  417.                             message $filename
  418.                         }
  419.                     }
  420.                     "no" {}
  421.                     "rm ext" {
  422.                         if {[catch {rm "$currentDir:*$ext"}]} {
  423.                             alertnote "not all \"*$ext\" files deleted"
  424.                         }
  425.                         break
  426.                     }
  427.                     "rm all" {
  428.                         if {[catch {rm "$currentDir:*$ext"}]} {
  429.                             alertnote "not all \"*$ext\" files deleted"
  430.                         }
  431.                         set removeSilently 1
  432.                         break
  433.                     }
  434.                     "cancel" {return}
  435.                 }
  436.             }
  437.         }
  438.     }
  439.     message "No$word files found"
  440. }
  441.  
  442. #--------------------------------------------------------------------------
  443. # Utility procs:
  444. #--------------------------------------------------------------------------
  445.  
  446. # Find a LaTeX auxiliary file with extension $ext.  If 'forcecurrent' 
  447. # is true, search the current directory without checking for TeX filesets.
  448. #
  449. proc findAuxiliaryFile {ext {forcecurrent 0}} {
  450.     
  451.     set currentWin [win::Current]
  452.     if { $currentWin == "" } { return "" }
  453.     set currentDoc [file tail $currentWin]
  454.  
  455.     if $forcecurrent {
  456.         # pretend there are no TeX filesets:
  457.         set fset ""
  458.     } else {
  459.         set fset [isWindowInFileset $currentWin "tex"]
  460.     }
  461.     
  462.     if { $fset != "" } {
  463.         
  464.         set currentWin [texFilesetBaseName $fset]
  465.         set currentDoc [file tail $currentWin]
  466.         set currentDir [file dirname $currentWin]
  467.         set docBasename [file rootname $currentDoc]
  468.         set lowerExt [string tolower $ext]
  469.         
  470.     } else {
  471.         
  472.         # we do all this if it's not a project:
  473.         set currentDir [file dirname $currentWin]        
  474.         set docBasename [file rootname $currentDoc]
  475.         set lowerExt [string tolower $ext]
  476.         
  477.         # Is the window untitled or dirty?
  478.         global PREFS
  479.         if { [set num [winUntitled]] } {
  480.             set filename $PREFS:tmp:Untitled$num\.$lowerExt
  481.             if { [file exists $filename] } {
  482.                 return $filename
  483.             } else {
  484.                 return ""
  485.             }
  486.         } elseif { [winDirty] } {
  487.             switch [askyesno "Window dirty---continue anyway?"] {
  488.                 "yes" {
  489.                     set filename $PREFS:tmp:temp-$currentDoc\.$lowerExt
  490.                     if { [file exists $filename] } {
  491.                         return $filename
  492.                     } else {
  493.                         # fall through
  494.                     }
  495.                 }
  496.                 "no" {return ""}
  497.             }
  498.         }
  499.     }
  500.     
  501.     # Check the current directory:
  502.     set filename $currentDir:$docBasename\.$lowerExt
  503.     if { [file exists $filename] } {
  504.         return $filename
  505.     } else {
  506.         return ""
  507.     }
  508. }
  509.  
  510. # If the current window is untitled, return its number (i.e., either
  511. # the number 1 or the number  n  in "Untitled <n>"); otherwise, return 0.
  512. proc winUntitled {} {
  513.     set currentWin [win::Current]
  514.     if { $currentWin == "" } { return 0 }
  515.     set currentDoc [file tail $currentWin]
  516.     if { [string match $currentWin $currentDoc] } {
  517.         if { [regexp {<(.*)>} $currentDoc dummy num] } {
  518.             return $num
  519.         } else {
  520.             return 1
  521.         }
  522.     } else {
  523.         return 0
  524.     }
  525. }
  526.  
  527. ## 
  528.  # -------------------------------------------------------------------------
  529.  # 
  530.  # "texApp" --
  531.  # 
  532.  #  Switch to bibtex, latex or makeindex
  533.  # -------------------------------------------------------------------------
  534.  ##
  535. proc texApp {name} {
  536.     set type [string tolower $name]
  537.     global ${type}Sig ${type}AppSign
  538.     set supportedApps [array names ${type}AppSign]
  539.     foreach app $supportedApps { lappend sigs [set ${type}AppSign($app)] }
  540.     set longPrompt "Please locate your ${name} app."
  541.     if { [catch {app::launchAnyOfThese $sigs ${type}Sig $longPrompt} appname] } {
  542.         error "bug in 'app::launchAnyOfThese'"
  543.     }
  544.     set quotedSig "'[string trim [set ${type}Sig] {'}]'"
  545.     switchTo $quotedSig
  546. }
  547.